home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmMM_102_App.DEF < prev    next >
Encoding:
Modula Definition  |  1992-04-08  |  748 b   |  33 lines
  1. (* %filename% -- application class *)
  2. (* Created %date% %time% by AppMaker *)
  3.  
  4. DEFINITION MODULE U%appname%;
  5.  
  6. FROM UMenuSetup IMPORT
  7.     CmdNumber;
  8. FROM UMacApp IMPORT
  9.     TApplication, TDocument, TCommand, TWindow;
  10.     %for each dialog gen uses%
  11.  
  12. (*${QINSPECTOR*)
  13. FROM UMacAppUtilities IMPORT
  14.     DoToFieldMETHOD;
  15. (*$}*)
  16.  
  17. TYPE
  18.     T%appname%App    = OBJECT (TApplication)
  19.         %for each dialog gen instanceModeless%
  20.  
  21.         METHOD I%appname%App;
  22.         OVERRIDE METHOD DoMakeDocument    (itsCmdNumber:    CmdNumber): TDocument;
  23.         OVERRIDE METHOD DoSetupMenus;
  24.         OVERRIDE METHOD DoMenuCommand    (aCmdNumber:    CmdNumber): TCommand;
  25.         %for each menu gen doItems.decl%
  26.  
  27.     (*${QINSPECTOR*)
  28.         OVERRIDE METHOD Fields (DoToField: DoToFieldMETHOD);
  29.     (*$}*)
  30.     END(*T%appname%App*);
  31.  
  32. END U%appname%.
  33.